home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 010a / lamenu10.zip / LAMENU6.BC < prev    next >
Text File  |  1991-01-23  |  6KB  |  321 lines
  1. echo \\27[44;37m
  2. cls
  3. let %!z = %1.dsp
  4. read_file %!x %!z
  5. let %!j = %!x
  6. read_file %!x
  7. let %!a = %!x
  8. read_file %!x
  9. let %!b = %!x
  10. read_file %!x
  11. let %!c = %!x
  12. read_file %!x
  13. let %!d = %!x
  14. read_file %!x
  15. let %!e = %!x
  16. read_file %!x
  17. let %!f = %!x
  18. :start
  19. cls
  20. locate 1 2
  21. echonolf La Menu System v1.0
  22. lmdt
  23. gosub time
  24. locate 2 4
  25. echo By Bill Mezian
  26. locate 3 1
  27. echonolf ╞═══════════════════════════════════════
  28. echo ═══════════════════════════════════════╡
  29. let %!n = %!j
  30. string_length %!n
  31. sub %!n 80
  32. abs %!n
  33. div %!n 2
  34. locate 5 %!n
  35. echo %!j
  36. :begin
  37. locate 10 29
  38. echonolf \\27[44;33m\\0\\0\\0* %!a\\27[44;37m
  39. locate 11 29
  40. echonolf \\27[44;33m\\0\\0\\0* %!b\\27[44;37m
  41. locate 12 29
  42. echonolf \\27[44;33m\\0\\0\\0* %!c\\27[44;37m
  43. locate 13 29
  44. echonolf \\27[44;33m\\0\\0\\0* %!d\\27[44;37m
  45. locate 14 29
  46. echonolf \\27[44;33m\\0\\0\\0* %!e\\27[44;37m
  47. locate 15 29
  48. echonolf \\27[44;33m\\0\\0\\0* %!f\\27[44;37m
  49. locate 20 13
  50. echonolf \\27[44;37mUse Arrow Keys \\24\\25 to\\0
  51. echo \\27[46;30mHighlight Selection\\27[44;37m and Press Enter
  52. locate 24 25
  53. echonolf \\27[46;30m[ESC]\\27[44;37m To Return To The Menu
  54. if %RC% == 1 goto u_arw_2
  55. if %RC% == 2 goto d_arw_1
  56. if %RC% == 3 goto d_arw_2
  57. if %RC% == 4 goto d_arw_3
  58. if %RC% == 5 goto d_arw_4
  59. if %RC% == 6 goto d_arw_5
  60. :1_start
  61. locate 10 29
  62. echonolf \\27[46;30m══* %!a\\27[44;37m
  63. locate 10 32
  64. getkey
  65. error_level %!q
  66. gosub 1_test
  67. goto 1_start
  68. :u_arw_1
  69. gosub time
  70. locate 10 29
  71. echonolf \\27[44;33m\\0\\0\\0* %!a\\27[44;37m
  72. locate 15 29
  73. echonolf \\27[46;30m══* %!f\\27[44;37m
  74. locate 15 32
  75. getkey
  76. error_level %!q
  77. gosub 6_test
  78. goto u_arw_1
  79. :d_arw_1
  80. gosub time
  81. locate 10 29
  82. echonolf \\27[44;33m\\0\\0\\0* %!a\\27[44;37m
  83. locate 11 29
  84. echonolf \\27[46;30m══* %!b\\27[44;37m
  85. locate 11 32
  86. getkey
  87. error_level %!q
  88. gosub 2_test
  89. goto d_arw_1
  90. :u_arw_2
  91. gosub time
  92. locate 11 29
  93. echonolf \\27[44;33m\\0\\0\\0* %!b\\27[44;37m
  94. locate 10 29
  95. echonolf \\27[46;30m══* %!a\\27[44;37m
  96. locate 10 32
  97. getkey
  98. error_level %!q
  99. gosub 1_test
  100. goto u_arw_2
  101. :d_arw_2
  102. gosub time
  103. locate 11 29
  104. echonolf \\27[44;33m\\0\\0\\0* %!b\\27[44;37m
  105. locate 12 29
  106. echonolf \\27[46;30m══* %!c\\27[44;37m
  107. locate 12 32
  108. getkey
  109. error_level %!q
  110. gosub 3_test
  111. goto d_arw_2
  112. :u_arw_3
  113. gosub time
  114. locate 12 29
  115. echonolf \\27[44;33m\\0\\0\\0* %!c\\27[44;37m
  116. locate 11 29
  117. echonolf \\27[46;30m══* %!b\\27[44;37m
  118. locate 11 32
  119. getkey
  120. error_level %!q
  121. gosub 2_test
  122. goto u_arw_3
  123. :d_arw_3
  124. gosub time
  125. locate 12 29
  126. echonolf \\27[44;33m\\0\\0\\0* %!c\\27[44;37m
  127. locate 13 29
  128. echonolf \\27[46;30m══* %!d\\27[44;37m
  129. locate 13 32
  130. getkey
  131. error_level %!q
  132. gosub 4_test
  133. goto d_arw_3
  134. :u_arw_4
  135. gosub time
  136. locate 13 29
  137. echonolf \\27[44;33m\\0\\0\\0* %!d\\27[44;37m
  138. locate 12 29
  139. echonolf \\27[46;30m══* %!c\\27[44;37m
  140. locate 12 32
  141. getkey
  142. error_level %!q
  143. gosub 3_test
  144. goto u_arw_4
  145. :d_arw_4
  146. gosub time
  147. locate 13 29
  148. echonolf \\27[44;33m\\0\\0\\0* %!d\\27[44;37m
  149. locate 14 29
  150. echonolf \\27[46;30m══* %!e\\27[44;37m
  151. locate 14 32
  152. getkey
  153. error_level %!q
  154. gosub 5_test
  155. goto d_arw_4
  156. :u_arw_5
  157. gosub time
  158. locate 14 29
  159. echonolf \\27[44;33m\\0\\0\\0* %!e\\27[44;37m
  160. locate 13 29
  161. echonolf \\27[46;30m══* %!d\\27[44;37m
  162. locate 13 32
  163. getkey
  164. error_level %!q
  165. gosub 4_test
  166. goto u_arw_5
  167. :d_arw_5
  168. gosub time
  169. locate 14 29
  170. echonolf \\27[44;33m\\0\\0\\0* %!e\\27[44;37m
  171. locate 15 29
  172. echonolf \\27[46;30m══* %!f\\27[44;37m
  173. locate 15 32
  174. getkey
  175. error_level %!q
  176. gosub 6_test
  177. goto d_arw_5
  178. :u_arw_6
  179. gosub time
  180. locate 15 29
  181. echonolf \\27[44;33m\\0\\0\\0* %!f\\27[44;37m
  182. locate 14 29
  183. echonolf \\27[46;30m══* %!e\\27[44;37m
  184. locate 14 32
  185. getkey
  186. error_level %!q
  187. gosub 5_test
  188. goto u_arw_6
  189. :d_arw_6
  190. gosub time
  191. locate 15 29
  192. echonolf \\27[44;33m\\0\\0\\0* %!f\\27[44;37m
  193. locate 10 29
  194. echonolf \\27[46;30m══* %!a\\27[44;37m
  195. locate 10 32
  196. getkey
  197. error_level %!q
  198. gosub 1_test
  199. goto d_arw_6
  200. :1_test
  201. if %!q = 18432 goto u_arw_1
  202. if %!q = 20480 goto d_arw_1
  203. if %!q = 27 goto end
  204. set RC=1
  205. if %!q = 13 goto 1
  206. if %!q = 32 gosub time
  207. return
  208. :2_test
  209. if %!q = 18432 goto u_arw_2
  210. if %!q = 20480 goto d_arw_2
  211. if %!q = 27 goto end
  212. set RC=2
  213. if %!q = 13 goto 2
  214. if %!q = 32 gosub time
  215. return
  216. :3_test
  217. if %!q = 18432 goto u_arw_3
  218. if %!q = 20480 goto d_arw_3
  219. if %!q = 27 goto end
  220. set RC=3
  221. if %!q = 13 goto 3
  222. if %!q = 32 gosub time
  223. return
  224. :4_test
  225. if %!q = 18432 goto u_arw_4
  226. if %!q = 20480 goto d_arw_4
  227. if %!q = 27 goto end
  228. set RC=4
  229. if %!q = 13 goto 4
  230. if %!q = 32 gosub time
  231. return
  232. :5_test
  233. if %!q = 18432 goto u_arw_5
  234. if %!q = 20480 goto d_arw_5
  235. if %!q = 27 goto end
  236. set RC=5
  237. if %!q = 13 goto 5
  238. if %!q = 32 gosub time
  239. return
  240. :6_test
  241. if %!q = 18432 goto u_arw_6
  242. if %!q = 20480 goto d_arw_6
  243. if %!q = 27 goto end
  244. set RC=6
  245. if %!q = 13 goto 6
  246. if %!q = 32 gosub time
  247. return
  248. :time
  249. hour_hour
  250. error_level %!h
  251. minute_minute
  252. error_level %!t
  253. let %!k = %!h
  254. if %!t == 0 let %!t = 00
  255. if %!t == 1 let %!t = 01
  256. if %!t == 2 let %!t = 02
  257. if %!t == 3 let %!t = 03
  258. if %!t == 4 let %!t = 04
  259. if %!t == 5 let %!t = 05
  260. if %!t == 6 let %!t = 06
  261. if %!t == 7 let %!t = 07
  262. if %!t == 8 let %!t = 08
  263. if %!t == 9 let %!t = 09
  264. let %!p = AM
  265. GT %!k 12
  266. if errorlevel 1 let %!p = PM
  267. if %!h == 0 let %!p = AM
  268. if %!p == PM sub %!h 12
  269. if %!h == 12 let %!p = PM
  270. if %!h == 0 let %!h = 12
  271. locate 1 68
  272. echonolf \\27[44;37m%!h\\58
  273. echonolf %!t  %!p\\0
  274. echo
  275. return
  276. :1
  277. cls
  278. if %!a = * goto start
  279. locate 25 5
  280. echo Loading %!a - Please Wait
  281. set lm=1
  282. exit
  283. :2
  284. cls
  285. if %!b = * goto start
  286. locate 25 5
  287. echo Loading %!b - Please Wait
  288. set lm=2
  289. exit
  290. :3
  291. cls
  292. if %!c = * goto start
  293. locate 25 5
  294. echo Loading %!c - Please Wait
  295. set lm=3
  296. exit
  297. :4
  298. cls
  299. if %!d = * goto start
  300. locate 25 5
  301. echo Loading %!d - Please Wait
  302. set lm=4
  303. exit
  304. :5
  305. cls
  306. if %!e = * goto start
  307. locate 25 5
  308. echo Loading %!e - Please Wait
  309. set lm=5
  310. exit
  311. :6
  312. cls
  313. if %!f = * goto start
  314. locate 25 5
  315. echo Loading %!f - Please Wait
  316. set lm=6
  317. exit
  318. :end
  319. set LM=EX
  320. cls
  321.